(in-package :at.etel.test)
;;;; $Id$

(defmacro define-test (name &rest body)
  `(warn ,(format nil "Unimplemented ~A test." name)))

(define-test introspect-process-start ()
  (wsml2reasoner::test-run 'find-proccess-start))

(define-test introspect-process-end ()
  (wsml2reasoner::test-run 'find-proccess-end))

